home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / HyperCard Demos / HyperCard In Education / Sort / card_2991.txt < prev    next >
Text File  |  1989-07-14  |  12KB  |  614 lines
  1. -- card: 2991 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2811
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 4000
  11. -- rect: left=149 top=62 right=78 bottom=192
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: field 10
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 4000
  25. -- rect: left=149 top=86 right=103 bottom=191
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: field 9
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 00
  38. -- high flags: 4000
  39. -- rect: left=149 top=110 right=127 bottom=191
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: field 8
  48.  
  49.  
  50. -- part 4 (field)
  51. -- low flags: 00
  52. -- high flags: 4000
  53. -- rect: left=149 top=133 right=150 bottom=190
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: field 7
  62.  
  63.  
  64. -- part 5 (field)
  65. -- low flags: 00
  66. -- high flags: 4000
  67. -- rect: left=149 top=156 right=172 bottom=191
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: field 6
  76.  
  77.  
  78. -- part 6 (field)
  79. -- low flags: 00
  80. -- high flags: 4000
  81. -- rect: left=149 top=178 right=196 bottom=190
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 3
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: field 5
  90.  
  91.  
  92. -- part 7 (field)
  93. -- low flags: 00
  94. -- high flags: 4000
  95. -- rect: left=149 top=203 right=220 bottom=189
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: field 4
  104.  
  105.  
  106. -- part 8 (field)
  107. -- low flags: 00
  108. -- high flags: 4000
  109. -- rect: left=149 top=228 right=244 bottom=190
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 3
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: field 3
  118.  
  119.  
  120. -- part 9 (field)
  121. -- low flags: 00
  122. -- high flags: 4000
  123. -- rect: left=149 top=251 right=268 bottom=190
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 0
  127. -- font id: 3
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: field 2
  132.  
  133.  
  134. -- part 10 (field)
  135. -- low flags: 00
  136. -- high flags: 4000
  137. -- rect: left=149 top=274 right=291 bottom=191
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 0
  141. -- font id: 3
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: field 1
  146.  
  147.  
  148. -- part 11 (button)
  149. -- low flags: 00
  150. -- high flags: 8003
  151. -- rect: left=118 top=298 right=320 bottom=218
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: Randomize
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   play "boing" a d c
  163.   repeat with x=1 to 10
  164.     put the random of 899 into holder
  165.     put holder+100 into card field x
  166.   end repeat
  167. end mouseUp
  168.  
  169.  
  170.  
  171. -- part 12 (field)
  172. -- low flags: 00
  173. -- high flags: 4000
  174. -- rect: left=273 top=62 right=80 bottom=308
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 0
  178. -- font id: 3
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: sort 10
  183.  
  184.  
  185. -- part 13 (field)
  186. -- low flags: 00
  187. -- high flags: 4000
  188. -- rect: left=273 top=86 right=103 bottom=309
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 0
  192. -- font id: 3
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: sort 9
  197.  
  198.  
  199. -- part 14 (field)
  200. -- low flags: 00
  201. -- high flags: 4000
  202. -- rect: left=273 top=110 right=127 bottom=309
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 0
  206. -- font id: 3
  207. -- text size: 12
  208. -- style flags: 0
  209. -- line height: 16
  210. -- part name: sort 8
  211.  
  212.  
  213. -- part 15 (field)
  214. -- low flags: 00
  215. -- high flags: 4000
  216. -- rect: left=273 top=133 right=150 bottom=309
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 0
  220. -- font id: 3
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: sort 7
  225.  
  226.  
  227. -- part 16 (field)
  228. -- low flags: 00
  229. -- high flags: 4000
  230. -- rect: left=273 top=156 right=172 bottom=309
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 0
  234. -- font id: 3
  235. -- text size: 12
  236. -- style flags: 0
  237. -- line height: 16
  238. -- part name: sort 6
  239.  
  240.  
  241. -- part 17 (field)
  242. -- low flags: 00
  243. -- high flags: 4000
  244. -- rect: left=273 top=178 right=196 bottom=310
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 0 / 0
  247. -- text alignment: 0
  248. -- font id: 3
  249. -- text size: 12
  250. -- style flags: 0
  251. -- line height: 16
  252. -- part name: sort 5
  253.  
  254.  
  255. -- part 18 (field)
  256. -- low flags: 00
  257. -- high flags: 4000
  258. -- rect: left=273 top=203 right=220 bottom=310
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 0
  262. -- font id: 3
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: sort 4
  267.  
  268.  
  269. -- part 19 (field)
  270. -- low flags: 00
  271. -- high flags: 4000
  272. -- rect: left=273 top=227 right=244 bottom=311
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 0
  276. -- font id: 3
  277. -- text size: 12
  278. -- style flags: 0
  279. -- line height: 16
  280. -- part name: sort 3
  281.  
  282.  
  283. -- part 20 (field)
  284. -- low flags: 00
  285. -- high flags: 4000
  286. -- rect: left=273 top=251 right=268 bottom=311
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 0 / 0
  289. -- text alignment: 0
  290. -- font id: 3
  291. -- text size: 12
  292. -- style flags: 0
  293. -- line height: 16
  294. -- part name: sort 2
  295.  
  296.  
  297. -- part 21 (field)
  298. -- low flags: 00
  299. -- high flags: 4000
  300. -- rect: left=273 top=274 right=291 bottom=313
  301. -- title width / last selected line: 0
  302. -- icon id / first selected line: 0 / 0
  303. -- text alignment: 0
  304. -- font id: 3
  305. -- text size: 12
  306. -- style flags: 0
  307. -- line height: 16
  308. -- part name: sort 1
  309.  
  310.  
  311. -- part 22 (button)
  312. -- low flags: 00
  313. -- high flags: 8003
  314. -- rect: left=242 top=298 right=320 bottom=342
  315. -- title width / last selected line: 0
  316. -- icon id / first selected line: 0 / 0
  317. -- text alignment: 1
  318. -- font id: 0
  319. -- text size: 12
  320. -- style flags: 0
  321. -- line height: 16
  322. -- part name: Sort
  323. ----- HyperTalk script -----
  324. on mouseUp
  325.   play "boing" a b c  a d
  326.   repeat with t=1 to 10
  327.     put card field t into card field (t+20)
  328.   end repeat
  329.  
  330.   repeat with h=11 to 20
  331.     put 0 into card field h
  332.   end repeat
  333.  
  334.   repeat with x=1 to 10
  335.     put card field x into holder
  336.  
  337.     repeat with y=1 to 10
  338.       if card field y < holder and card field y > card field (x+10) then put card field y into holder
  339.       if card field y=holder then put y into marker
  340.     end repeat
  341.  
  342.     put holder into card field (x+10)
  343.     put 1000 into card field marker
  344.   end repeat
  345.  
  346.   repeat with r= 21 to 30
  347.     put card field r into card field (r-20)
  348.     delete line 1 of card field r
  349.   end repeat
  350.  
  351.  
  352.  
  353. end mouseUp
  354.  
  355.  
  356.  
  357. -- part 23 (field)
  358. -- low flags: 00
  359. -- high flags: 0000
  360. -- rect: left=349 top=62 right=80 bottom=408
  361. -- title width / last selected line: 0
  362. -- icon id / first selected line: 0 / 0
  363. -- text alignment: 0
  364. -- font id: 3
  365. -- text size: 12
  366. -- style flags: 0
  367. -- line height: 16
  368. -- part name: 
  369.  
  370.  
  371. -- part 24 (field)
  372. -- low flags: 00
  373. -- high flags: 0000
  374. -- rect: left=349 top=86 right=105 bottom=407
  375. -- title width / last selected line: 0
  376. -- icon id / first selected line: 0 / 0
  377. -- text alignment: 0
  378. -- font id: 3
  379. -- text size: 12
  380. -- style flags: 0
  381. -- line height: 16
  382. -- part name: 
  383.  
  384.  
  385. -- part 25 (field)
  386. -- low flags: 00
  387. -- high flags: 0000
  388. -- rect: left=349 top=110 right=127 bottom=404
  389. -- title width / last selected line: 0
  390. -- icon id / first selected line: 0 / 0
  391. -- text alignment: 0
  392. -- font id: 3
  393. -- text size: 12
  394. -- style flags: 0
  395. -- line height: 16
  396. -- part name: 
  397.  
  398.  
  399. -- part 26 (field)
  400. -- low flags: 00
  401. -- high flags: 0000
  402. -- rect: left=349 top=133 right=150 bottom=402
  403. -- title width / last selected line: 0
  404. -- icon id / first selected line: 0 / 0
  405. -- text alignment: 0
  406. -- font id: 3
  407. -- text size: 12
  408. -- style flags: 0
  409. -- line height: 16
  410. -- part name: 
  411.  
  412.  
  413. -- part 27 (field)
  414. -- low flags: 00
  415. -- high flags: 0000
  416. -- rect: left=349 top=156 right=173 bottom=408
  417. -- title width / last selected line: 0
  418. -- icon id / first selected line: 0 / 0
  419. -- text alignment: 0
  420. -- font id: 3
  421. -- text size: 12
  422. -- style flags: 0
  423. -- line height: 16
  424. -- part name: 
  425.  
  426.  
  427. -- part 28 (field)
  428. -- low flags: 00
  429. -- high flags: 0000
  430. -- rect: left=349 top=178 right=195 bottom=407
  431. -- title width / last selected line: 0
  432. -- icon id / first selected line: 0 / 0
  433. -- text alignment: 0
  434. -- font id: 3
  435. -- text size: 12
  436. -- style flags: 0
  437. -- line height: 16
  438. -- part name: 
  439.  
  440.  
  441. -- part 29 (field)
  442. -- low flags: 00
  443. -- high flags: 0000
  444. -- rect: left=349 top=203 right=222 bottom=408
  445. -- title width / last selected line: 0
  446. -- icon id / first selected line: 0 / 0
  447. -- text alignment: 0
  448. -- font id: 3
  449. -- text size: 12
  450. -- style flags: 0
  451. -- line height: 16
  452. -- part name: 
  453.  
  454.  
  455. -- part 30 (field)
  456. -- low flags: 00
  457. -- high flags: 0000
  458. -- rect: left=349 top=227 right=245 bottom=406
  459. -- title width / last selected line: 0
  460. -- icon id / first selected line: 0 / 0
  461. -- text alignment: 0
  462. -- font id: 3
  463. -- text size: 12
  464. -- style flags: 0
  465. -- line height: 16
  466. -- part name: 
  467.  
  468.  
  469. -- part 31 (field)
  470. -- low flags: 00
  471. -- high flags: 0000
  472. -- rect: left=349 top=251 right=271 bottom=417
  473. -- title width / last selected line: 0
  474. -- icon id / first selected line: 0 / 0
  475. -- text alignment: 0
  476. -- font id: 3
  477. -- text size: 12
  478. -- style flags: 0
  479. -- line height: 16
  480. -- part name: 
  481.  
  482.  
  483. -- part 32 (field)
  484. -- low flags: 00
  485. -- high flags: 0000
  486. -- rect: left=349 top=274 right=291 bottom=408
  487. -- title width / last selected line: 0
  488. -- icon id / first selected line: 0 / 0
  489. -- text alignment: 0
  490. -- font id: 3
  491. -- text size: 12
  492. -- style flags: 0
  493. -- line height: 16
  494. -- part name: 
  495.  
  496.  
  497. -- part 34 (button)
  498. -- low flags: 00
  499. -- high flags: 8003
  500. -- rect: left=5 top=266 right=288 bottom=105
  501. -- title width / last selected line: 0
  502. -- icon id / first selected line: 0 / 0
  503. -- text alignment: 1
  504. -- font id: 0
  505. -- text size: 12
  506. -- style flags: 0
  507. -- line height: 16
  508. -- part name: Show Script
  509. ----- HyperTalk script -----
  510. on mouseUp
  511.   edit script of card button "Sort"
  512. end mouseUp
  513.  
  514.  
  515.  
  516. -- part 35 (button)
  517. -- low flags: 00
  518. -- high flags: A002
  519. -- rect: left=16 top=319 right=340 bottom=76
  520. -- title width / last selected line: 0
  521. -- icon id / first selected line: 0 / 0
  522. -- text alignment: 1
  523. -- font id: 0
  524. -- text size: 12
  525. -- style flags: 0
  526. -- line height: 16
  527. -- part name: Return
  528. ----- HyperTalk script -----
  529. on mouseUp
  530.   global returncard
  531.   go to returncard
  532. end mouseUp
  533.  
  534.  
  535.  
  536. -- part contents for card part 1
  537. ----- text -----
  538. 209
  539.  
  540. -- part contents for card part 2
  541. ----- text -----
  542. 152
  543.  
  544. -- part contents for card part 3
  545. ----- text -----
  546. 997
  547.  
  548. -- part contents for card part 4
  549. ----- text -----
  550. 640
  551.  
  552. -- part contents for card part 5
  553. ----- text -----
  554. 417
  555.  
  556. -- part contents for card part 6
  557. ----- text -----
  558. 536
  559.  
  560. -- part contents for card part 7
  561. ----- text -----
  562. 607
  563.  
  564. -- part contents for card part 8
  565. ----- text -----
  566. 395
  567.  
  568. -- part contents for card part 9
  569. ----- text -----
  570. 209
  571.  
  572. -- part contents for card part 10
  573. ----- text -----
  574. 342
  575.  
  576. -- part contents for card part 21
  577. ----- text -----
  578. 997
  579.  
  580. -- part contents for card part 12
  581. ----- text -----
  582. 152
  583.  
  584. -- part contents for card part 13
  585. ----- text -----
  586. 209
  587.  
  588. -- part contents for card part 14
  589. ----- text -----
  590. 209
  591.  
  592. -- part contents for card part 15
  593. ----- text -----
  594. 342
  595.  
  596. -- part contents for card part 16
  597. ----- text -----
  598. 395
  599.  
  600. -- part contents for card part 17
  601. ----- text -----
  602. 417
  603.  
  604. -- part contents for card part 18
  605. ----- text -----
  606. 536
  607.  
  608. -- part contents for card part 19
  609. ----- text -----
  610. 607
  611.  
  612. -- part contents for card part 20
  613. ----- text -----
  614. 640